home *** CD-ROM | disk | FTP | other *** search
/ The Business Master (3rd Edition) / The Business Master (3rd Edition).iso / files / cataging / tvsched / tvinstal.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-13  |  13.4 KB  |  146 lines
  1. 1000  CLEAR:CLS:GOSUB62130:KEYOFF:DIMAB$(12),L(12),B$(41):W$=CHR$(58)+" ":CLOSE:LOCATE,,1,1,10:LOCATE,,0:ONERRORGOTO58000:OPEN "i", #1, "tvconfig.dat":INPUT#1,TIM$(1,10),A1$,A2$:INPUT#1,RD$,DR4$:INPUT#1,SA,ABA,CL1,CL2,CL3,CL4
  2. 1005  FORM=1TO12:INPUT#1,AB$(M):NEXT:FORI=1TO12:INPUT#1,L(I):NEXT:FORX=1TO7:INPUT#1,DK$(X),X1$(X):NEXT:FORX=1TO41:INPUT#1,B$(X):NEXT:INPUT#1,CR$:CLOSE:GOTO10000
  3. 1760  HL=CSRLIN:CA=8:IFHL<23THENHL=HL+1
  4. 1770  HH=CSRLIN:IFCH=5THENHI=9
  5. 1782  HN=15:PRINT TAB(9);:PRINT "time"W$:I=8:GOSUB57760:TIM$(T,X)=CO$:Y=LEN(TIM$(T,X)):IFY=0THENBEEP:LOCATEHL,1:GOTO1782
  6. 1800  IFY=2ANDRIGHT$(TIM$(T,X),1)<>"p"ANDRIGHT$(TIM$(T,X),1)<>"a"THEN1940
  7. 1802  IFY<>3THEN1840
  8. 1805  IFY=3ANDASC(MID$(TIM$(T,X),2,1))<48ORY=3ANDASC(MID$(TIM$(T,X),2,1))>50THEN1940
  9. 1820  IFY=3ANDRIGHT$(TIM$(T,X),1)<>"p"ANDRIGHT$(TIM$(T,X),1)<>"a"THEN1940
  10. 1840  IFY=2THENCO$=RIGHT$(TIM$(T,X),1):TIM$(T,X)=LEFT$(TIM$(T,X),1)+":00"+" "+CO$+"m
  11. 1860  IFY=3THENCO$=RIGHT$(TIM$(T,X),1):TIM$(T,X)=LEFT$(TIM$(T,X),2)+":00"+" "+CO$+"m
  12. 1900  IFLEN(TIM$(T,X))=7THENTIM$(T,X)=" "+TIM$(T,X)
  13. 1920  IFLEN(TIM$(T,X))<>8ANDTIM$(T,X)<>"*back"THEN61235
  14. 1940  IFMID$(TIM$(T,X),3,1)<>":"ANDTIM$(T,X)<>"*back"THEN61235
  15. 1960  IFRIGHT$(TIM$(T,X),1)<>"M"ANDRIGHT$(TIM$(T,X),1)<>"m"ANDTIM$(T,X)<>"*back"THEN61235
  16. 1980  IFVAL(LEFT$(TIM$(T,X),2))<1ORVAL(LEFT$(TIM$(T,X),2))>12THEN61235
  17. 2000  IFVAL(MID$(TIM$(T,X),4,2))<0ORVAL(MID$(TIM$(T,X),4,2))>59THEN61235
  18. 2003  IFRIGHT$(TIM$(T,X),2)="pm"THENBEEP:LOCATEHL,HI:PRINT"Only `am' values valid":FORJJ=1TO6000:NEXT:LOCATEHL,HI:GOTO1782
  19. 2004  IFLEN(TIM$(1,10))=8ANDMID$(TIM$(1,10),4,2)<>"00"THENBEEP:LOCATEHL,HI:PRINT "Only `on the hour' values valid":FORJJ=1TO6000:NEXT:LOCATEHL,HI:GOTO1782 ELSEIFCH=5THEN8330
  20. 8122  REM
  21. 8227  CLS:GOSUB8322:GOSUB8324:PRINT"The sorting day is "TIM$(1,10)" to "MIT$:PRINT"Do you wish to change this value (y/n)? ";
  22. 8242  GOSUB59100:GOSUB62140:IFCO$<>"y"ANDCO$<>"n"THENBEEP:GOTO8242 ELSEIFCO$="n"THENPRINT SPC(1) "n":GOTO8319 ELSEIFCO$="y"THENX1$="y":PRINT "y
  23. 8252  PRINT:PRINT"Note: Only `on the hour values' from 12:00 am (i.e. midnight) to 11:00 am":PRINT TAB(7)"may be selected as the sorting day.  Form for time is hr:mn_xm
  24. 8255  IFCO$="y"THENPRINT:PRINT"Enter new time for beginning of sorting day";:X=10:T=1:CH=5:GOTO1760
  25. 8267  IFCO$="y"ANDVAL(TIM$(1,10))=12THENABA=10:SA=0:GOTO8277
  26. 8272  IFCO$="y"THENSA=VAL(TIM$(1,10)):SA=SA-1:ABA=2400
  27. 8277  IFCO$="n"THEN8319
  28. 8282  JJ=LEN(TIM$(1,10)):IFLEFT$(TIM$(1,10),1)=" "THENTIM$(1,10)=RIGHT$(TIM$(1,10),JJ-1)
  29. 8319  GOTO10010
  30. 8322  LOCATE7,31:COLORCL3,CL2:PRINT"SORTING DAY":COLORCL1,CL2:LOCATECSRLIN+3,1:LEV$=TIM$(1,10):MA$=MIT$:RETURN
  31. 8324  IFTIM$(1,10)="12:00 am"ORTIM$(1,10)=" 12:00 am"THENMIT$="11:59 pm":RETURN
  32. 8325  IFTIM$(1,10)=" 1:00 am"ORTIM$(1,10)="1:00 am"THENMIT$="12:59 am":RETURN
  33. 8326  MIT$=LEFT$(TIM$(1,10),2):JJ=VAL(MIT$):JJ=JJ-1:MIT$=STR$(JJ):MIT$=MIT$+":59 am":IFLEN(MIT$)=8THENMIT$=RIGHT$(MIT$,7):RETURN ELSEIFLEN(MIT$)=9THENMIT$=RIGHT$(MIT$,8):RETURN
  34. 8330  GOSUB8324:PRINT:PRINT:PRINT "Sorting day: " TIM$(1,10)" to "MIT$:PRINT"Type `y' to confirm or `n' to re-enter
  35. 8334  GOSUB62130:CO$=INKEY$:IFCO$=""THEN8334
  36. 8337  IFX1$="n"ANDCO$="y"THEN8277
  37. 8338  IFCO$<>"y"ANDCO$<>"n"THENBEEP:GOTO8334 ELSEIFCO$="y"THEN8267 ELSEIFCO$="n"THENTIM$(1,10)=LEV$:MIT$=MA$:CLS:GOTO8227
  38. 10000  COLORCL1,CL2,CL4:CR$=CHR$(17)+CHR$(196)+CHR$(217)
  39. 10010  CLS:PRINT:PRINT TAB(18)"U S E R   S U P P O R T E D   S O F T W A R E":LOCATE7,24:COLORCL3,CL2:PRINT"Install options for TVSCHED 1.0U":COLORCL1,CL2:LOCATE22,24:PRINT"Copyright (C), K.M Beilman, 1985";
  40. 10015  LOCATE10,30:PRINT"Select by number":LOCATE12,30:PRINT"1) Program information":LOCATE13,30:PRINT "2) Display attributes":LOCATE14,30:PRINT "3) Disk drive configuration":LOCATE15,30:PRINT "4) Sorting day
  41. 10027  LOCATE16,30:PRINT "5) Create default files":LOCATE17,30:PRINT "6) Exit to DOS":LOCATE19,30:PRINT "Your choice: ";
  42. 10035  GOSUB59100:GOSUB62140:IFVAL(CO$)<1ORVAL(CO$)>6THENBEEP:GOTO10035
  43. 10050  CO=VAL(CO$):PRINT CO$:ONCOGOTO51000,15000,20000,8122,59200,59000
  44. 15000  CLS:LOCATE5,30:COLORCL3,CL2:PRINT"Display attributes":COLORCL1,CL2:LOCATE9,30:PRINT "Select your type of monitor":LOCATE11,32:PRINT "1) Color":LOCATE12,32:PRINT "2) Monochrome":PRINT:PRINT TAB(32)"3) Menu":LOCATE16,30:PRINT"Your choice: ";
  45. 15060  GOSUB59100:GOSUB62140:CO=VAL(CO$):IFCO<1ORCO>3THENBEEP:GOTO15060 ELSEPRINT CO$
  46. 15070  IFCO=3THEN10000 ELSEIFCO=2THENCL1=7:CL2=0:CL3=7:CL4=0:PRINT:PRINT:PRINT TAB(30)"Monochrome selected":GOSUB59105:GOTO10000
  47. 15080  IFCO=1THENCLS:COLORCL3,CL2:PRINT TAB(30)"Color selection":COLORCL1,CL2
  48. 15090  PRINT:PRINT TAB(20);:COLOR0,CL2:PRINT"0  ";:COLORCL1,CL2:PRINT"black" SPC(16) ;:COLOR8,CL2:PRINT"8  ";:COLORCL1,CL2:PRINT"gray
  49. 15092  PRINT TAB(20);:COLOR1,CL2:PRINT"1  ";:COLORCL1,CL2:PRINT"blue";:PRINT SPC(17);:COLOR9,CL2:PRINT"9  ";:COLORCL1,CL2:PRINT"Light blue
  50. 15095  PRINT TAB(20);:COLOR2,CL2:PRINT"2  ";:COLORCL1,CL2:PRINT"green";:PRINT SPC(15) ;:COLOR10,CL2:PRINT"10  ";:COLORCL1,CL2:PRINT"Light green
  51. 15097  PRINT TAB(20);:COLOR3,CL2:PRINT"3  ";:COLORCL1,CL2:PRINT"Cyan";:COLORCL1,CL2:PRINT SPC(16);:COLOR11,CL2:PRINT"11  ";:COLORCL1,CL2:PRINT"Light cyan
  52. 16000  PRINT TAB(20);:COLOR4,CL2:PRINT"4  ";:COLORCL1,CL2:PRINT"red" ;:PRINT SPC(17) ;:COLOR12,CL2:PRINT"12  ";:COLORCL1,CL2:PRINT"Light red":PRINT TAB(20);:COLOR5,CL2:PRINT"5  ";:COLORCL1,CL2:PRINT"magenta";
  53. 16010  COLOR13,CL2:PRINT SPC(13)"13  ";:COLORCL1,CL2:PRINT"Light magenta":PRINT TAB(20);:COLOR6,CL2:PRINT"6  ";:COLORCL1,CL2:PRINT"brown";:PRINT SPC(15);:COLOR14,CL2:PRINT"14  ";:COLORCL1,CL2:PRINT"yellow
  54. 16011  PRINT TAB(20);:COLOR7,CL2:PRINT"7  ";:COLORCL1,CL2:PRINT"white";:PRINT SPC(15);:COLOR15,CL2:PRINT"15  ";:COLORCL1,CL2:PRINT"high intensity white":PRINT STRING$(79,46)
  55. 16015  PRINT"Press " CR$ " to accept value in parentheses":PRINT"or input a different value followed by "CR$:PRINT:PRINT"Foreground:valid input 0-15" SPC(10)"("CL1") ";:LINEINPUTCL1$:IFCL1$=""THEN16030 ELSECL1=VAL(CL1$)
  56. 16030  PRINT"Background:valid input 0-7" SPC(11)"("CL2") ";:LINEINPUTCL2$:IFCL2$=""THEN16040 ELSECL2=VAL(CL2$)
  57. 16040  PRINT"Page titles:valid input 0-15" SPC(9)"("CL3") ";:LINEINPUTCL3$:IFCL3$=""THEN16050 ELSECL3=VAL(CL3$)
  58. 16050  PRINT"Border:valid input 0-15"SPC(14)"("CL4") ";:LINEINPUTCL4$:IFCL4$=""THEN16055 ELSECL4=VAL(CL4$)
  59. 16055  PRINT:IFCL1>15THENBEEP:PRINT "Incorrect foreground value":CL1=7:TS=1
  60. 16060  IFCL2>7THENBEEP:PRINT"Incorrect background value":CL2=0:TS=1
  61. 16065  IFCL3>15THENBEEP:PRINT"Incorrect page title value":CL3=7:TS=1
  62. 16070  IFCL4>15THENBEEP:PRINT"Incorrect border value":CL4=0:TS=1
  63. 16072  IFCL1=CL2THENBEEP:PRINT"Foreground value cannot be the same as background value":CL1=7:CL2=0:TS=1
  64. 16073  IFCL3=CL2THENBEEP:PRINT"Page title value cannot be the same as background value":TS=1:CL2=0:CL3=7
  65. 16075  IFTS=1THENPRINT:PRINT"Re-enter values":PRINT"Press any key to continue";
  66. 16080  IFTS=1ANDINKEY$=""THEN16080 ELSEIFTS=1THENTS=0:CO=1:COLORCL1,CL2,CL4:GOTO15080
  67. 17000  GOTO10000
  68. 20000  CLS:LOCATE4,24:HK=1:COLORCL3,CL2:PRINT"Disk drive configuration":COLORCL1,CL2:PRINT:PRINT:PRINT"Press " CR$ " to accept value in parentheses":PRINT"or input a different value followed by " CR$
  69. 20010  LOCATE10,1:PRINT"Disk drive for program, schedule files, and fn key files (" RD$ ") " ;:LINEINPUTRD1$:IFRD1$=""THEN20012 ELSERD$=RD1$
  70. 20012  LOCATE12,1:PRINT"(Input `n' for null value)":IFDR4$=""THENDR4$=" "
  71. 20015  LOCATE11,1:PRINT"Alternate disk drive for schedule files and fn key files (" DR4$ ") " ;:LINEINPUTDR1$:DR1$=LEFT$(DR1$,1):IFDR1$="N"ORDR1$="n"THENDR4$="" ELSEIFDR1$=""THEN20017 ELSEDR4$=DR1$
  72. 20017  IFDR4$=" "THENDR4$="
  73. 20018  IFDR4$=""ORDR4$=" "THEN20019 ELSEIFASC(DR4$)<97ANDDR4$<>"N"ANDDR4$<>"n"THENDR4$=CHR$(ASC(DR4$)+32)
  74. 20019  IFASC(RD$)<97THENRD$=CHR$(ASC(RD$)+32)
  75. 20020  IFLEN(RD$)<>1THENRD$=LEFT$(RD$,1)
  76. 20022  IFLEN(RD$)<>1ORASC(RD$)<97ORASC(RD$)>122THENBEEP:LOCATE14,1:PRINT"Program drive assignment incorrect. Input a single letter":ST=1:RD$="a
  77. 20025  IFDR4$=""THEN20030 ELSEIFLEN(DR4$)<>1ORASC(DR4$)<97ORASC(DR4$)>122THENBEEP:HK=1:LOCATE15,1:PRINT"Alternate drive assignment incorrect. Input a single letter":ST=1:DR4$="
  78. 20030  IFST=1THENPRINT:PRINT TAB(HK)"Re-enter values":PRINT TAB(HK)"Press any key to continue
  79. 20032  IFST=1ANDINKEY$=""THEN20032 ELSEIFST=1THENST=0:GOTO20000
  80. 20035  GOTO10010
  81. 50000  NH=HN:FA$="":LOCATE,,1,1,10:AB$="
  82. 50005  IFAB$<>""THENFA$=FA$+AB$
  83. 50010  LOCATEHL,NH,1,1,10:AB$=INPUT$(1):GOSUB62150:IFAB$=CHR$(13)THENAC=0:LOCATE,,0
  84. 50030  IFAB$=CHR$(13)ANDHL<23THENAB$="":RETURN ELSEIFAB$=CHR$(13)THENAB$="":RETURN
  85. 50050  IFAB$=CHR$(8)THENAC=AC-1:NH=NH-1:GOSUB50200:LOCATEHL,NH:PRINT CHR$(95):FA$=LEFT$(FA$,AC):GOTO50010
  86. 50100  IFAB$<>CHR$(8)THENLOCATEHL,NH,1,1,10:AC=AC+1:PRINT AB$:NH=NH+1:GOTO50005
  87. 50200  IFAC<=0THENNH=HN:AC=0:RETURN
  88. 50210  IFNH>=HN+CATHENLOCATEHL,NH:PRINT SPC(1):NH=NH-1:AC=AC-1:GOTO50200
  89. 50220  RETURN
  90. 51000  CLS:LOCATE1,33:COLORCL3,CL2:PRINT"Documentation":COLORCL1,CL2:LOCATE3,1:PRINT:PRINT"Program overview":PRINT:PRINT"TVSCHED lets you plan and take control of your television viewing.
  91. 51010  PRINT:PRINT"TVSCHED accepts, edits, sorts, and prints out a listing of":PRINT"your selected television shows.  The program is menu-driven and":PRINT"incorporates data testing.  It sorts the tv shows you input by day
  92. 51015  PRINT"and time.  After you choose the next week's tv shows from a tv":PRINT"directory, the program's features allow you to quickly compose and":PRINT"save weekly tv schedules on disk files and/or print-outs.  The saved
  93. 51020  PRINT"schedules allow you to check your own custom tv schedule instead":PRINT"of the full commercial/cable tv listings.  More significantly, the":PRINT"program allows you to keep a printed and/or disk record of the tape
  94. 51025  PRINT"location of any shows that you have videotaped.":PRINT
  95. 51030  PRINT"TVSCHED is especially useful to those time-shifting videotaping viewers":PRINT"who have difficulty in keeping track of what is where on which tape. ":PRINT"It maximizes the use of VCR's by planning the videotaping in advance
  96. 51035  PRINT"and providing a record of the location of taped shows.":LOCATE25,1:PRINT"Press any key to continue";:GOSUB62140:CLS:LOCATE2,33:COLORCL3,CL2:PRINT"Registration":COLORCL1,CL2:LOCATE,31
  97. 53010  PRINT"This unregistered version of TVSCHED is modularized.  The program, excluding":PRINT"TVINSTAL, is divided into 2 modules: TV.EXE and TVEDIT.EXE. This version will":PRINT"run on the IBM PC or PC JUNIOR with 128K of memory.
  98. 53015  PRINT:PRINT"While this modularized program version is fully functional, it is somewhat":PRINT"slow when changing from one module to the other.  Additionally, this version
  99. 53020  PRINT"has an obligatory startup pause with an offer to register.  Also, except for":PRINT"the on-screen help page, the unregistered copy comes with no detailed docu-":PRINT"mentation. Encourage USER SUPPORTED SOFTWARE by registering.
  100. 53025  PRINT:PRINT"A $20 registration confers the following benefits:":PRINT:PRINT TAB(5)"1. An enhanced faster unmodularized version of the program that will run":PRINT TAB(8)"on the PC with 128K of memory.
  101. 53045  PRINT TAB(5)"2. The pause and request for payment, as well as the title page,":PRINT TAB(8)"removed from the registered version.":PRINT TAB(5)"3. The complete program documentation included on the program disk.
  102. 53065  PRINT TAB(5)"4. Entitlement to updates at a nominal cost.":PRINT TAB(5)"5. Registered users with IBM's `BASRUN.EXE' file can receive a smaller":PRINT TAB(8)"unmodularized version that runs on the PC Jr with 128K of memory.
  103. 53080  LOCATE25,1:PRINT"Press any key to continue";:GOSUB62140:CLS:COLORCL3,CL2:LOCATE1,25:PRINT "Disclaimer of Warranty":COLORCL1,CL2:PRINT:PRINT"This software is sold `as is' and without any warranties, whether
  104. 53115  PRINT "expressed or implied. The user assumes any and all risks of using TVSCHED.":PRINT:COLORCL3,CL2:PRINT TAB(25)"Terms of distribution":COLORCL1,CL2
  105. 53140  PRINT:PRINT"1. No fee, other than the fair cost of the disk media, postage, and handl-":PRINT TAB(4)"ing can be charged. Any charges, including the above, may not exceed $7.00.
  106. 53145  PRINT"2. This unregistered version of TVSCHED 1.0U can be freely copied and distri-":PRINT TAB(4)"buted, but only in an unmodified form.
  107. 53150  PRINT"3. The registration information, disclaimer, and terms of distribution must":PRINT TAB(4)"not be changed and must be distributed with the program.
  108. 53160  PRINT:COLORCL3,CL2:PRINT TAB(32)"Address":PRINT:COLORCL1,CL2:PRINT"Comments and suggestions are encouraged. Send your registration fee,":PRINT"your mailing address and/or your comments to:":PRINT
  109. 53170  PRINT TAB(28)"K.M. Beilman":PRINT TAB(28)"P.O. Box 6942":PRINT TAB(25)"Louisville, Ky. 40206":PRINT TAB(12)"(For Compuserve users, send comments to 71336,1122)":LOCATE25,1:PRINT"Press any key to continue";:GOSUB62140:GOTO10000
  110. 57760  LOCATEHL,HN:PRINT STRING$(I,95);:PRINT STRING$(10,32):GOSUB50000:CO$=FA$:FA$="":RETURN
  111. 58000  IFERR=67ORERR=76THENBEEP:PRINT:PRINT:PRINT TAB(HK)"Write canceled":PRINT TAB(HK) "Incorrect drive assignment":PRINT TAB(HK)"Drive "RD$ " does not exist!":ST=1:RESUME20030
  112. 58002  IFERR=53ANDERL=61110THENRESUME61120
  113. 58003  IFERR=53ANDERL=60005THENRESUME60009
  114. 58005  IFERR=53ANDERL=59007ORERR=53ANDERL=59010THENPRINT:BEEP:PRINT TAB(30)"Error! Cannot find TV.EXE on drive "RD$:FORJJ=1TO6000:NEXT:RESUME10010
  115. 58006  IFERR=61ORERR=67THENBEEP:PRINT:PRINT:PRINT"Disk in drive "RD$ " is full":GOSUB59105:KILL"b:tv*.dat":RESUME10000 ELSEIFERR=70THENBEEP:PRINT:PRINT:PRINT"Disk in drive "RD$ " is write-protected":GOSUB59105:RESUME10000
  116. 58007  IFERR=71THENBEEP:PRINT:PRINT:PRINT"Disk drive "RD$ " not ready":GOSUB59105:RESUME10010
  117. 58010  IFERR=53THENTIM$(1,10)="6:00 am":RD$="a":DR2$="":DR4$="":SA=5:ABA=2400:CL1=7:CL2=0:CL3=7:CL4=0:RESUME10000 ELSEBEEP:PRINT:PRINT:PRINT "Basic error code "ERR "in line "ERL:FORJJ=1TO4500:NEXT:RESUME10000
  118. 59000  IFDR4$=RD$THENDR4$="
  119. 59005  GOSUB62116:HK=30:IFRD$<>""THENCLS:LOCATE11,30:PRINT"Writing "RD$+":tvconfig.dat ....":CLOSE:OPEN "o",#1,RD$+":tvconfig.dat":WRITE#1,TIM$(1,10),A1$,A2$:PRINT#1,RD$","DR4$:PRINT#1,SA;ABA;CL1;CL2;CL3;CL4:GOSUB62115:CLOSE#1
  120. 59007  IFRD$<>""THENGOSUB59105:CLS:SYSTEM
  121. 59010  LOCATE20,30:PRINT"Writing tvconfig.dat ...":CLOSE:OPEN"o",#1,"tvconfig.dat":WRITE#1,TIM$(1,10),A1$,A2$,RD$,DR4$:WRITE#1,SA;ABA;CL1;CL2;CL3;CL4:GOSUB62115:CLOSE#1:GOSUB59105:CLS:SYSTEM
  122. 59100  LOCATE,,1:RETURN
  123. 59105  FORJJ=1TO4500:NEXT:RETURN
  124. 59200  CLS:LOCATE5,30:HK=22:COLORCL3,CL2:PRINT "Create default files":COLORCL1,CL2:LOCATECSRLIN+2,1:PRINT TAB(22)"Select by number":PRINT:PRINT TAB(25) "1. Create tvfunct.dat (fn key file)":PRINT TAB(25) "2. Create tvtape.dat (open tape file)
  125. 59230  PRINT TAB(25)"3. Menu":PRINT:PRINT TAB(22)"Your choice: ";:GOSUB59100
  126. 59250  GOSUB59100:GOSUB62140:CO=VAL(CO$):IFCO<1ORCO>3THENBEEP:GOTO59250
  127. 59260  PRINT CO$:LOCATE,,0:ONCOGOTO60005,61110,10010
  128. 60005  CLOSE:OPEN "i", #1, RD$+":tvfunct.dat":CLOSE:PRINT:PRINT:PRINT TAB(22)"File `tvfunct.dat' exists on drive "RD$:PRINT TAB(22)"Type `y' to overwrite with default file":GOSUB62140:IFCO$<>"y"THEN59200
  129. 60009  PRINT:PRINT:PRINT TAB(30)"Creating "RD$":tvfunct.dat...":CLOSE:OPEN"o",#1,RD$+":tvfunct.dat":FORP=1TO8:TI$(P,9)="":TIM$(P,9)="":CB$(P,9)="":LA$(P,9)="":WRITE#1,TI$(P,9),TIM$(P,9),CB$(P,9),LA$(P,9):NEXT
  130. 60010  TI$(9,9)="":TI$(10,9)="*quit":FORP=9TO10:TIM$(P,9)="":CB$(P,9)="":LA$(P,9)="":NEXT:FORP=9TO10:WRITE#1,TI$(P,9),TIM$(P,9),CB$(P,9),LA$(P,9):NEXT:CLOSE:GOSUB59105:GOTO59200
  131. 61110  CLOSE:OPEN "i", #1, RD$+":tvtape.dat":CLOSE:PRINT:PRINT:PRINT TAB(22)"File `tvtape.dat' exists on drive "RD$:PRINT TAB(22)"Type `y' to overwrite with default file":GOSUB62140:IFCO$<>"y"THEN59200
  132. 61120  OA$="":PRINT:PRINT:PRINT TAB(30)"Creating "RD$":tvtape.dat...":CLOSE:OPEN"o",#1,RD$+":tvtape.dat":WRITE#1,OA$:CLOSE:GOSUB59105:GOTO59200
  133. 61235  BEEP:LOCATEHL,15:PRINT "Incorrect entry":FORJJ=1TO3000:NEXT:LOCATEHL,1:GOTO1782
  134. 62115  FORM=1TO12:WRITE#1,AB$(M):NEXT:FORI=1TO12:WRITE#1,L(I):NEXT:FORX=1TO7:WRITE#1,DK$(X),X1$(X):NEXT:FORX=1TO41:WRITE#1,B$(X):NEXT:WRITE#1,CR$:RETURN
  135. 62116  A1$="KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE":A2$="SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD
  136. 62117  RESTORE:FORM=1TO12:READAB$(M):NEXT:FORI=1TO12:READL(I):NEXT:DATA Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec,31,28,31,30,31,30,31,31,30,31,30,31
  137. 62120  FORX=1TO7:READDK$(X):X1$(X)=STR$(X):X1$(X)=X1$(X)+".":X1$(X)=RIGHT$(X1$(X),2):NEXT:DON=1:DATA Sun, Mon, Tue, Wed, Thu, Fri, Sat
  138. 62121  FORJ=1TO41:READB$(J):NEXT:RETURN:DATA 1. Change dates,(e)dit schedule,2. Change dates to next wk,(f)iles,3. Save consecutive wk files,(v)iew schedule,4. Disk drive selection    ,<F10> Main menu
  139. 62122  DATA (a)dd an entry,(n)ext day,(d)elete an entry,(f)iles,(r)eplace an entry,(c)hange dates,(e)dit an entry,<F10> day wk menu
  140. 62123  DATA 1. Read schedule from disk,(v)iew schedule,2. Erase schedule on disk,(e)dit schedule,3. Save schedule to disk,(c)hange dates,4. Disk drive selection,<F10> Main menu
  141. 62124  DATA (e)dit fn keys,(r)ead fn keys from disk,(s)ave fn keys to disk,(d)rive selection,<F10> main menu:DATA 3. View schedule,4. Print schedule,5. Change dates,6. Edit function keys,7. Edit open tape no.'s,8. Clear memory,9. Help with program
  142. 62126  DATA (n)ame of title,(t)ime,(c)hannel,(l)ength,(o)ther
  143. 62130  DEFSEG=&H40:POKE&H17,(PEEK(&H17)AND&HFFBF):RETURN
  144. 62140  CO$=INKEY$:IFCO$=""THEN62140 ELSEIFASC(CO$)>=65ANDASC(CO$)<=90THENCO$=CHR$(ASC(CO$)+32):LOCATE,,0:RETURN ELSELOCATE,,0:RETURN
  145. 62150  IFASC(AB$)>=65ANDASC(AB$)<=90THENAB$=CHR$(ASC(AB$)+32):RETURN ELSERETURN
  146.